home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / examples / new.st < prev    next >
Text File  |  1998-09-30  |  260b  |  28 lines
  1. Class Acl
  2. | vara |
  3. [
  4.    new
  5.       vara <- 'correct'
  6. |
  7.    printa
  8.       vara print
  9. ]
  10.  
  11. Class Bcl :Acl
  12. | varb |
  13. [
  14.    new
  15.       varb <- 'correct'
  16. |
  17.    printb
  18.       varb print
  19. ]
  20.  
  21. Class Main
  22. [
  23.    main      | i |
  24.       i <- Bcl new .
  25.       i printb .
  26.       i printa
  27. ]
  28.